home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / commadio / amtradio / dipole2.bas < prev    next >
BASIC Source File  |  1985-06-14  |  2KB  |  60 lines
  1. 10 REM THIS PROGRAM CALCULATES THE LOADING COIL INDUCTANCE FOR AN OFF-CENTER
  2. 20 REM LOADED DIPOLE ANTENNA. THE PROGRAM APPEARED IN THE DECEMBER, 1981
  3. 30 REM ISSUE OF CQ MAGAZINE, PAGE 44. THE PROGRAM MUST BE RUN TWICE, ONCE
  4. 40 REM FOR EACH LEG OF THE DIPOLE, UNLESS BOTH LEGS ARE THE SAME
  5. 50 REM LENGTH (CENTER FED). SEE ARTICLE FOR MORE DETAIL.
  6. 60 REM
  7. 70 REM PROGRAM COVERTED FROM APPLESOFT TO IBM BASIC 11/4/82
  8. 150 CLS
  9. 160 PRINT "LOADED DIPOLE DESIGN PROGRAM"
  10. 170 PRINT:PRINT
  11. 180 INPUT"OPERATING FREQUENCY IN MHZ ";F
  12. 190 PRINT:PRINT
  13. 200 INPUT"TOTAL LENGTH IN FEET ";A
  14. 210 PRINT:PRINT
  15. 220 INPUT"FEET FROM CENTER TO LOADING COIL ";B
  16. 230 PRINT:PRINT
  17. 240 X=((234/F)-B)
  18. 250 Y=((A/2)-B)
  19. 260 INPUT"DO YOU WANT TO USE THE WIRE TABLE (Y OR N) ";Y$
  20. 270 IF Y$="Y" THEN GOSUB 430 ELSE GOSUB 560
  21. 290 IF Y$="Y" OR Y$="N" THEN 320
  22. 310 GOTO 260
  23. 320 S1=1000000!/(68*3.1417^2*F^2)
  24. 325 ON ERROR GOTO 595
  25. 330 S2=1/X*(LOG(24*X/D)-1)
  26. 340 S3=(1-F*B/234)^2-1
  27. 350 S4=1/Y*(LOG(24*Y/D)-1)
  28. 360 S5=(Y*F/234)^2-1
  29. 370 S6=S1*(S2*S3-S4*S5)
  30. 380 S6=INT(S6*100+.5)/100
  31. 390 PRINT:PRINT:PRINT
  32. 400 PRINT"LOADING COIL IS ";S6;" MICROHENRYS"
  33. 405 PRINT
  34. 410 PRINT"WOUND WITH ";D;" WIRE"
  35. 412 PRINT:PRINT:PRINT
  36. 420 END
  37. 430 PRINT
  38. 440 INPUT"WIRE GAUGE (#10 TO #22) ";D
  39. 450 IF D=10 THEN D=.102:RETURN
  40. 460 IF D=12 THEN D=.081:RETURN
  41. 470 IF D=14 THEN D=.064:RETURN
  42. 480 IF D=16 THEN D=.051:RETURN
  43. 490 IF D=18 THEN D=.04:RETURN
  44. 500 IF D=20 THEN D=.032:RETURN
  45. 510 IF D=22 THEN D=.025:RETURN
  46. 520 PRINT
  47. 530 PRINT"WIRE GAUGE MUST BE AN EVEN NUMBER IN RANGE FROM #10 TO #22"
  48. 550 PRINT:PRINT:GOTO 430
  49. 560 PRINT
  50. 570 INPUT"WHAT IS THE ELEMENT (WIRE) DIAMETER IN INCHES ";D
  51. 580 RETURN
  52. 595 BEEP:BEEP:BEEP:PRINT:PRINT:PRINT
  53. 600 PRINT"A MATH ERROR HAS OCCURED. ONE OF THE INPUTS IS IMPOSSIBLE."
  54. 610 PRINT"TRY ANOTHER LENGTH OR DISTANCE. SEE ARTICLE IN DECEMBER, 1981"
  55. 620 PRINT"ISSUE OF CQ MAGAZINE, PAGE 44 FOR DETAILS OF THIS PROGRAM."
  56. 630 PRINT:PRINT
  57. 640 GOTO 200
  58. 650 END
  59. ECEMBER, 1981"
  60. 620 PRINT"ISSUE OF CQ MAGAZINE, PAGE 44 FOR DETAILS OF THIS